perm filename S3.PRN[HAL,HE] blob
sn#219450 filedate 1976-06-13 generic text, type T, neo UTF8
OUTPUT PPN ( [foo,bar] ) =
(COMMNT[NULL_RECORD]) [IW=W242,OW=W242]
BEGINNING SIMULATION PHASE
BEGINNING CODE EMISSION PHASE
(PROG
(BLOCK $B1.DUMMY16 $B1.DUMMY15 $B1.DUMMY14 $B1.DUMMY13 $B1.DUMMY12 $B1.DUMMY11 $B1.DUMMY10 $B1.DUMMY9 $B1.DUMMY8 $B1.DUMMY7 $B1.DUMMY6 $B1.DUMMY5 $B1.DUMMY4 $B1.DUMMY3 $B1.DUMMY2 $B1.DUMMY1 $B1.HA_GR $B1.HA_REF $B1.JIG_BOT $B1.SP_END_2 $B1.SP_END $B1.SP_GR $B1.SP_REF $B1.BA_SIDE $B1.BA_TOP $B1.BA_GR $B1.BASE $B1.BA_REF $B1.SH_END $B1.SH_GR $B1.ORG
(BLKOP[1]) [IW=W535,OW=W536]
(COMMNT[NULL_RECORD]) [IW=W536,OW=W536]
(ASSIGNMENT $B1.ORG FRAME( NILROTN, VECTOR( 3.500000, 40.00000, .1300000))) [IW=W536,OW=W537]
(AFFIX[ $B1.SH_END, $B1.ORG, $B1.DUMMY1, TRANS( NILROTN, VECTOR( 9.230000, 2.500000, .6000000@-1)), NONRIGIDLY,NULL_RECORD]) [IW=W537,OW=W540]
(AFFIX[ $B1.BA_REF, $B1.ORG, $B1.DUMMY2, TRANS( NILROTN, VECTOR( 9.750000, 8.940000, .6000000@-1)), NONRIGIDLY,NULL_RECORD]) [IW=W540,OW=W541]
(AFFIX[ $B1.BASE, $B1.BA_REF, $B1.DUMMY3, TRANS( NILROTN, VECTOR( .0000000, .0000000, 1.200000)), RIGIDLY,NULL_RECORD]) [IW=W541,OW=W542]
(AFFIX[ $B1.BA_GR, $B1.BA_REF, $B1.DUMMY4, TRANS( ROTN( YHAT, 179.9998500*DEG), VECTOR( .0000000, .0000000, .9000000)), RIGIDLY,NULL_RECORD]) [IW=W542,OW=W543]
(AFFIX[ $B1.HA_REF, $B1.ORG, $B1.DUMMY5, TRANS( NILROTN, VECTOR( 2.500000, 8.000000, 1.060000)), NONRIGIDLY,NULL_RECORD]) [IW=W543,OW=W544]
(AFFIX[ $B1.HA_GR, $B1.HA_REF, $B1.DUMMY6, TRANS( ROTN( XHAT, 180.0000000*DEG), VECTOR( .8000000, .0000000,-.5000000@-1)), RIGIDLY,NULL_RECORD]) [IW=W544,OW=W545]
(AFFIX[ $B1.JIG_BOT, $B1.ORG, $B1.DUMMY7, TRANS( NILROTN, VECTOR( 14.80000, 3.060000, 1.060000)), NONRIGIDLY,NULL_RECORD]) [IW=W545,OW=W546]
(AFFIX[ $B1.BASE, $B1.ORG, $B1.DUMMY8, TRANS( NILROTN, VECTOR( 14.80000, 3.060000, 2.260000)), NONRIGIDLY,NULL_RECORD]) [IW=W546,OW=W547]
(AFFIX[ $B1.SP_REF, $B1.ORG, $B1.DUMMY9, TRANS( NILROTN, VECTOR( 2.500000, 3.500000, 2.630000)), NONRIGIDLY,NULL_RECORD]) [IW=W547,OW=W550]
(AFFIX[ $B1.SP_GR, $B1.SP_REF, $B1.DUMMY10, TRANS( ROTN( YHAT, 179.9998500*DEG), VECTOR( .0000000, .0000000, 1.200000)), RIGIDLY,NULL_RECORD]) [IW=W550,OW=W551]
(AFFIX[ $B1.SP_END, $B1.SP_REF, $B1.DUMMY11, TRANS( NILROTN,-ZHAT), RIGIDLY,NULL_RECORD]) [IW=W551,OW=W552]
(AFFIX[ $B1.SP_END_2, $B1.SP_REF, $B1.DUMMY12, TRANS( NILROTN, VECTOR( .0000000, .0000000,-.8000000)), RIGIDLY,NULL_RECORD]) [IW=W552,OW=W553]
(AFFIX[ $B1.SH_GR, $B1.SH_END, $B1.DUMMY13, TRANS( ROTN( YHAT, 179.9998500*DEG), VECTOR( .0000000, .0000000, 1.200000)), RIGIDLY,NULL_RECORD]) [IW=W553,OW=W554]
(ASSIGNMENT BARM FRAME( ROTN( YHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) [IW=W554,OW=W555]
(BLOCK
(BLKOP[1]) [IW=W555,OW=W556]
(COMMNT[NULL_RECORD]) [IW=W556,OW=W556]
(MOVE$ BARM TO $B1.SP_GR
(VIA(TTMUL $B1.SP_GR TRANS( NILROTN, VECTOR( .0000000, .0000000, 3.000000))))
) [IW=W556,OW=W557]
(CENTER BARM) [IW=W557,OW=W560]
(COMMNT[NULL_RECORD]) [IW=W560,OW=W560]
(ASSERT( $B1.SP_GR = BARM) IN W561) [IW=W560,OW=W561]
(AFFIX[ $B1.SP_GR, BARM, $B1.DUMMY16,NULL_RECORD, RIGIDLY,NULL_RECORD]) [IW=W561,OW=W562]
(COMMNT[NULL_RECORD]) [IW=W562,OW=W562]
(BLOCK
(BLKOP[1]) [IW=W562,OW=W563] (ON (SGT
(FORCE[[ .0000000, .0000000, 1.000000],[ .0000000, .0000000, .0000000],0]) 12.00000 ) DO
(STOP BARM) [IW=ANY,OW=ANY] ) [IW=W563,OW=W564]
(MOVE$ $B1.SP_END TO (TTMUL $B1.JIG_BOT TRANS( NILROTN, VECTOR( .0000000, .0000000,-.1000000)))
(VIA(TTMUL $B1.JIG_BOT TRANS( NILROTN, VECTOR( .0000000, .0000000, 3.000000))))
) [IW=W564,OW=W565]
(COMMNT[NULL_RECORD]) [IW=W565,OW=W565]
(BLKOP[2]) [IW=W565,OW=W566]
) [IW=W562,OW=W566]
(MOVE$ $B1.SP_END TO (TTMUL $B1.JIG_BOT TRANS( ROTN( ZHAT,-28.6478900*DEG), VECTOR( .0000000, .0000000,-.1000000)))) [IW=W566,OW=W567]
(COMMNT[NULL_RECORD]) [IW=W567,OW=W567]
(COMMNT[NULL_RECORD]) [IW=W567,OW=W567]
(BLOCK
(BLKOP[1]) [IW=W567,OW=W570] (ON (SGT
(FORCE[[ .0000000, .0000000, .0000000],[ .0000000, .0000000, 1.000000],0]) 20.00000 ) DO
(STOP BARM) [IW=ANY,OW=ANY] ) [IW=W570,OW=W571]
(MOVE$ $B1.SP_GR TO (TTMUL $B1.SP_GR TRANS( ROTN( ZHAT, 1145.9156000*DEG), VECTOR( .0000000, .0000000, .1000000)))) [IW=W571,OW=W572]
(COMMNT[NULL_RECORD]) [IW=W572,OW=W572]
(BLKOP[2]) [IW=W572,OW=W573]
) [IW=W567,OW=W573]
(UNFIX[ $B1.SP_GR, BARM,NULL_RECORD]) [IW=W573,OW=W574]
(ASSIGNMENT BHAND .7000000 ) [IW=W574,OW=W575]
(COMMNT[NULL_RECORD]) [IW=W575,OW=W575]
(MOVE$ BHAND TO 3.000000 ) [IW=W575,OW=W576]
(COMMNT[NULL_RECORD]) [IW=W576,OW=W576]
(MOVE$ BARM TO $B1.SH_GR
(VIA(TTMUL $B1.SH_GR TRANS( NILROTN, VECTOR( .0000000, .0000000, 3.000000))))
) [IW=W576,OW=W577]
(CENTER BARM) [IW=W577,OW=W600]
(COMMNT[NULL_RECORD]) [IW=W600,OW=W600]
(ASSERT( $B1.SH_GR = BARM) IN W601) [IW=W600,OW=W601]
(AFFIX[ $B1.SH_GR, BARM, $B1.DUMMY15,NULL_RECORD, RIGIDLY,NULL_RECORD]) [IW=W601,OW=W602]
(BLOCK
(BLKOP[1]) [IW=W602,OW=W603] (ON (SGT
(FORCE[[ .0000000, .0000000, 1.000000],[ .0000000, .0000000, .0000000],0]) 12.00000 ) DO
(STOP BARM) [IW=ANY,OW=ANY] ) [IW=W603,OW=W604]
(MOVE$ $B1.SH_END TO (TTMUL $B1.BASE TRANS( ROTN( ZHAT,-44.9999910*DEG), VECTOR( .0000000, .0000000,-.2000000)))
(VIA(TTMUL $B1.BASE TRANS( ROTN( ZHAT,-44.9999910*DEG), VECTOR( .0000000, .0000000, 3.000000))))
) [IW=W604,OW=W605]
(BLKOP[2]) [IW=W605,OW=W606]
) [IW=W602,OW=W606]
(ASSERT( $B1.SH_END =(TTMUL $B1.BASE TRANS( ROTN( ZHAT,-44.9999910*DEG), NILVECT))) IN W607) [IW=W606,OW=W607]
(BLOCK
(BLKOP[1]) [IW=W607,OW=W610] (ON (SGT
(FORCE[[ .0000000, .0000000, .0000000],[ .0000000, .0000000, 1.000000],0]) 8.000000 ) DO
(STOP BARM) [IW=ANY,OW=ANY] ) [IW=W610,OW=W611]
(MOVE$ $B1.SH_END TO (TTMUL $B1.BASE TRANS( ROTN( ZHAT, 10.0000040*DEG), NILVECT))) [IW=W611,OW=W612]
(COMMNT[NULL_RECORD]) [IW=W612,OW=W612]
(BLKOP[2]) [IW=W612,OW=W613]
) [IW=W607,OW=W613]
(UNFIX[ $B1.SH_GR, BARM,NULL_RECORD]) [IW=W613,OW=W614]
(MOVE$ BHAND TO 3.000000 ) [IW=W614,OW=W615]
(MOVE$ BARM TO FRAME( ROTN( YHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) [IW=W615,OW=W616]
(BLKOP[2]) [IW=W616,OW=W617]
) [IW=W555,OW=W617]
(BLKOP[2]) [IW=W617,OW=W620]
) [IW=W535,OW=W620]) [IW=W242,OW=W620]
BEGINNING SIMULATION PHASE
BEGINNING CODE EMISSION PHASE